home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / NOVA9.3-2.SDA / NOVA.пRINT DOCS (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  61 lines
  1. 10 DATA"CONTENTS","INTRODUCTION","GETTING STARTED","TERM/AUTODIAL"
  2. 20 DATA"SCRIPT FILES","EXTERNAL PROGS","PARAMETERS LEFT","PARAMETERS RIGHT"
  3. 25 DATA"DISK/BUFFER/XFER"
  4. 30 POKE45,PEEK(174):POKE46,PEEK(175):POKE49152,0:CLR:DIMF$(8),M%(8)
  5. 40 IFPEEK(38400)<>76THENPRINT"[205]UST LOAD [206]OVATERM FIRST":END
  6. 50 FORI=0TO8:READF$(I):NEXT:ML=38400:SL=52608:DV=PEEK(186):IFDV<8ORDV>16THENDV=8
  7. 60 P$="[206]OVATERM 9.3 DOCUMENTATION                                    [208]AGE"
  8. 70 U$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  9. 80 OPEN15,DV,15:PRINT"[147][201]NSERT DOCUMENTATION DISK IN DEVICE"DV:PRINT"AND HIT RETURN"
  10. 90 GETA$:IFA$<>CHR$(13)THEN90
  11. 100 PRINT"[195]HECKING FOR ALL FILES..."
  12. 110 OPEN1,DV,0,"$":GET#1,A$,A$:SYSML+54
  13. 120 SYSML+54:IFRIGHT$(Z$,1)="."ORRIGHT$(Z$,4)="FREE"THENCLOSE1:GOTO170
  14. 130 F$="":FORI=7TO22:IFMID$(Z$,I,1)=CHR$(34)THENI=22:GOTO150
  15. 140 F$=F$+MID$(Z$,I,1)
  16. 150 NEXT:FORI=0TO8:IFF$=F$(I)THENM%(I)=1:I=8
  17. 160 NEXT:GOTO120
  18. 170 J=0:FORI=0TO8:IFM%(I)=0THENPRINT"[206]OT ALL DOCUMENTATION FILES FOUND!":GOTO460
  19. 180 PRINT"[197]NTER PAGE SIZE:":PRINT"(DEFAULT = 60)":PRINT"[145][145]"TAB(17);
  20. 190 GOSUB1000:PG=VAL(I$):IFPG=0THENPG=60
  21. 200 PRINT"[197]NTER SECONDARY ADDRESS:":PRINT"(DEFAULT = 7)":PRINT"[145][145]"TAB(25);
  22. 210 GOSUB1000:PS=VAL(I$):IFPS=0THENPS=7
  23. 220 PRINT"[193]LIGN PRINTER PAPER AND HIT RETURN"
  24. 230 GETA$:IFA$<>CHR$(13)THEN230
  25. 240 PRINT"[208]RESS  [211] [146] TO STOP OR  [208] [146] TO PAUSE":PRINT"DURING PRINTING"
  26. 250 OPEN4,4,PS:PRINT"[208]RINT TABLE OF CONTENTS?  [146][157]";
  27. 260 GETA$:IFA$<>"Y"ANDA$<>"N"THEN260
  28. 270 IFA$="N"THENPRINT"NO":GOTO340
  29. 280 PRINT"YES":OPEN2,DV,2,F$(0):INPUT#15,E:IFE>19THEN340
  30. 290 PRINT:PRINT"[208]RINTING "F$(0);:L=0
  31. 300 POKE781,2:SYSML+60:F=ST:PRINT#4,"        "S$;:L=L+1
  32. 305 IFL=PGTHENPRINT#4," ";:L=0
  33. 310 GETA$:IFA$="P"THENWAIT198,1:GETA$
  34. 320 IFF=0ANDA$<>"S"THEN300
  35. 330 PRINT#4," ";:IFA$="S"THEN410
  36. 340 CLOSE2:L=0:P=1:FORI=1TO8:OPEN2,DV,2,F$(I):INPUT#15,E:IFE>19THEN420
  37. 350 PRINT:PRINT"[208]RINTING "F$(I);
  38. 360 POKE781,2:SYSML+60:F=ST:PRINT#4,"     "S$;:L=L+1
  39. 370 IFL=PGTHENP=P+1:PRINT#4,"      "P$P:PRINT#4,"     "U$:PRINT#4:L=3
  40. 380 GETA$:IFA$="P"THENWAIT198,1:GETA$
  41. 390 IFA$="S"THENI=8:F=1
  42. 400 IFF=0THEN360
  43. 410 CLOSE2
  44. 420 NEXT:PRINT:PRINT"[212]RY AGAIN?  [146][157]";
  45. 430 GETA$:IFA$<>"Y"ANDA$<>"N"THEN430
  46. 440 IFA$="Y"THENPRINT"YES":GOTO220
  47. 450 PRINT"NO"
  48. 460 PRINT"[201]NSERT [206]OVATERM DISK AND HIT RETURN"
  49. 470 GETA$:IFA$<>CHR$(13)THEN470
  50. 480 OPEN2,DV,0,"PROG MENU":INPUT#15,E:CLOSE2:IFE>19THEN500
  51. 490 LOAD"PROG MENU",DV
  52. 500 OPEN2,DV,0,"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
  53. 510 PRINT"[147]":LOAD"NOVATERM ?.?*",DV
  54. 1000 I$=""
  55. 1010 PRINT" [146][157]";
  56. 1020 GETA$:IFA$=""THEN1020
  57. 1030 IF(ASC(A$)AND127)>31THENI$=I$+A$:PRINTA$;:GOTO1010
  58. 1040 IFA$=CHR$(13)THENPRINT" ":RETURN
  59. 1050 IFA$=CHR$(20)THENPRINTA$;:I$=LEFT$(I$,LEN(I$)-1)
  60. 1060 GOTO1020
  61.